package Bar;
use strict;

#require Exporter;
#use vars qw(@ISA @EXPORT @EXPORT_OK $VERSION);
#@ISA       = qw(Exporter);
#@EXPORT    = qw(new getMessage putMessage);
#@EXPORT_OK = qw(new getMessage putMessage);
#$VERSION   = 1.00;

###############################################################################
# Begin Package Code
###############################################################################
# 

sub TIESCALAR
{
    my $type = shift;
    my $var  = shift;

    print "TIESCALER called\n";
    bless (\$var, $type);
    return \$var;
}

sub FETCH
{
    my $this = shift;
    print "FETCH called\n";
    return $$this;
}

sub STORE
{
    my $this  = shift;
    my $value = shift;
    print "STORE called\n";
    $$this = $value; 
}

sub DESTROY
{
    print "DESTROY called\n";
}

1;
